/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / DTS Sample Code / Macintosh Sample Code / Monthly Releases (Compressed) / MacDTS.Sample.Code.89.06.sit / SC.002.TESample / TESampleGlue.s

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 54 45 53 61 6d 70 | 6c 65 47 6c 75 65 2e 73 |..TESamp|leGlue.s|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0f 97 00 | 00 01 7e a0 ab 45 98 a0 |........|..~..E..|
|00000060| ab 45 98 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.E......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 2b 58 00 00 |........|....+X..|
|00000080| 23 0d 23 09 41 70 70 6c | 65 20 4d 61 63 69 6e 74 |#.#.Appl|e Macint|
|00000090| 6f 73 68 20 44 65 76 65 | 6c 6f 70 65 72 20 54 65 |osh Deve|loper Te|
|000000a0| 63 68 6e 69 63 61 6c 20 | 53 75 70 70 6f 72 74 0d |chnical |Support.|
|000000b0| 23 0d 23 09 4d 75 6c 74 | 69 46 69 6e 64 65 72 2d |#.#.Mult|iFinder-|
|000000c0| 41 77 61 72 65 20 54 65 | 78 74 45 64 69 74 20 53 |Aware Te|xtEdit S|
|000000d0| 61 6d 70 6c 65 20 41 70 | 70 6c 69 63 61 74 69 6f |ample Ap|plicatio|
|000000e0| 6e 0d 23 0d 23 09 54 45 | 53 61 6d 70 6c 65 0d 23 |n.#.#.TE|Sample.#|
|000000f0| 0d 23 09 54 45 53 61 6d | 70 6c 65 2e 61 09 2d 09 |.#.TESam|ple.a.-.|
|00000100| 41 73 73 65 6d 62 6c 65 | 72 20 53 6f 75 72 63 65 |Assemble|r Source|
|00000110| 0d 23 0d 23 09 43 6f 70 | 79 72 69 67 68 74 20 a9 |.#.#.Cop|yright .|
|00000120| 20 31 39 38 39 20 41 70 | 70 6c 65 20 43 6f 6d 70 | 1989 Ap|ple Comp|
|00000130| 75 74 65 72 2c 20 49 6e | 63 2e 0d 23 09 41 6c 6c |uter, In|c..#.All|
|00000140| 20 72 69 67 68 74 73 20 | 72 65 73 65 72 76 65 64 | rights |reserved|
|00000150| 2e 0d 23 0d 23 09 56 65 | 72 73 69 6f 6e 73 3a 09 |..#.#.Ve|rsions:.|
|00000160| 0d 23 09 09 09 09 31 2e | 30 30 09 09 09 09 30 38 |.#....1.|00....08|
|00000170| 2f 38 38 0d 23 09 09 09 | 09 31 2e 30 31 09 09 09 |/88.#...|.1.01...|
|00000180| 09 31 31 2f 38 38 0d 23 | 09 09 09 09 31 2e 30 32 |.11/88.#|....1.02|
|00000190| 09 09 09 09 30 34 2f 38 | 39 0d 23 09 09 09 09 31 |....04/8|9.#....1|
|000001a0| 2e 30 33 09 09 09 09 30 | 36 2f 38 39 0d 23 0d 23 |.03....0|6/89.#.#|
|000001b0| 09 43 6f 6d 70 6f 6e 65 | 6e 74 73 3a 0d 23 09 09 |.Compone|nts:.#..|
|000001c0| 09 09 54 45 53 61 6d 70 | 6c 65 2e 70 09 09 09 4a |..TESamp|le.p...J|
|000001d0| 75 6e 65 20 31 2c 20 31 | 39 38 39 0d 23 09 09 09 |une 1, 1|989.#...|
|000001e0| 09 54 45 53 61 6d 70 6c | 65 2e 63 09 09 09 4a 75 |.TESampl|e.c...Ju|
|000001f0| 6e 65 20 31 2c 20 31 39 | 38 39 0d 23 09 09 09 09 |ne 1, 19|89.#....|
|00000200| 54 45 53 61 6d 70 6c 65 | 47 6c 75 65 2e 61 09 09 |TESample|Glue.a..|
|00000210| 4a 75 6e 65 20 31 2c 20 | 31 39 38 39 09 2d 4d 50 |June 1, |1989.-MP|
|00000220| 57 20 6f 6e 6c 79 2d 0d | 23 09 09 09 09 54 45 53 |W only-.|#....TES|
|00000230| 61 6d 70 6c 65 2e 72 09 | 09 09 4a 75 6e 65 20 31 |ample.r.|..June 1|
|00000240| 2c 20 31 39 38 39 0d 23 | 09 09 09 09 54 45 53 61 |, 1989.#|....TESa|
|00000250| 6d 70 6c 65 2e 68 09 09 | 09 4a 75 6e 65 20 31 2c |mple.h..|.June 1,|
|00000260| 20 31 39 38 39 0d 23 09 | 09 09 09 50 54 45 53 61 | 1989.#.|...PTESa|
|00000270| 6d 70 6c 65 2e 6d 61 6b | 65 09 09 4a 75 6e 65 20 |mple.mak|e..June |
|00000280| 31 2c 20 31 39 38 39 09 | 2d 4d 50 57 20 6f 6e 6c |1, 1989.|-MPW onl|
|00000290| 79 2d 0d 23 09 09 09 09 | 43 54 45 53 61 6d 70 6c |y-.#....|CTESampl|
|000002a0| 65 2e 6d 61 6b 65 09 09 | 4a 75 6e 65 20 31 2c 20 |e.make..|June 1, |
|000002b0| 31 39 38 39 09 2d 4d 50 | 57 20 6f 6e 6c 79 2d 0d |1989.-MP|W only-.|
|000002c0| 23 09 09 09 09 54 45 53 | 61 6d 70 6c 65 47 6c 75 |#....TES|ampleGlu|
|000002d0| 65 2e 73 09 09 4a 75 6e | 65 20 31 2c 20 31 39 38 |e.s..Jun|e 1, 198|
|000002e0| 39 09 2d 41 2f 55 58 20 | 6f 6e 6c 79 2d 0d 23 09 |9.-A/UX |only-.#.|
|000002f0| 09 09 09 54 45 53 61 6d | 70 6c 65 41 55 58 2e 72 |...TESam|pleAUX.r|
|00000300| 09 09 4a 75 6e 65 20 31 | 2c 20 31 39 38 39 09 2d |..June 1|, 1989.-|
|00000310| 41 2f 55 58 20 6f 6e 6c | 79 2d 0d 23 09 09 09 09 |A/UX onl|y-.#....|
|00000320| 4d 61 6b 65 66 69 6c 65 | 09 09 09 4a 75 6e 65 20 |Makefile|...June |
|00000330| 31 2c 20 31 39 38 39 09 | 2d 41 2f 55 58 20 6f 6e |1, 1989.|-A/UX on|
|00000340| 6c 79 2d 0d 23 0d 23 09 | 54 45 53 61 6d 70 6c 65 |ly-.#.#.|TESample|
|00000350| 20 69 73 20 61 6e 20 65 | 78 61 6d 70 6c 65 20 61 | is an e|xample a|
|00000360| 70 70 6c 69 63 61 74 69 | 6f 6e 20 74 68 61 74 20 |pplicati|on that |
|00000370| 64 65 6d 6f 6e 73 74 72 | 61 74 65 73 20 68 6f 77 |demonstr|ates how|
|00000380| 20 0d 23 09 74 6f 20 69 | 6e 69 74 69 61 6c 69 7a | .#.to i|nitializ|
|00000390| 65 20 74 68 65 20 63 6f | 6d 6d 6f 6e 6c 79 20 75 |e the co|mmonly u|
|000003a0| 73 65 64 20 74 6f 6f 6c | 62 6f 78 20 6d 61 6e 61 |sed tool|box mana|
|000003b0| 67 65 72 73 2c 20 6f 70 | 65 72 61 74 65 20 0d 23 |gers, op|erate .#|
|000003c0| 09 73 75 63 63 65 73 73 | 66 75 6c 6c 79 20 75 6e |.success|fully un|
|000003d0| 64 65 72 20 4d 75 6c 74 | 69 46 69 6e 64 65 72 2c |der Mult|iFinder,|
|000003e0| 20 68 61 6e 64 6c 65 20 | 64 65 73 6b 20 61 63 63 | handle |desk acc|
|000003f0| 65 73 73 6f 72 69 65 73 | 20 61 6e 64 20 0d 23 09 |essories| and .#.|
|00000400| 63 72 65 61 74 65 2c 20 | 67 72 6f 77 2c 20 61 6e |create, |grow, an|
|00000410| 64 20 7a 6f 6f 6d 20 77 | 69 6e 64 6f 77 73 2e 20 |d zoom w|indows. |
|00000420| 54 68 65 20 66 75 6e 64 | 61 6d 65 6e 74 61 6c 20 |The fund|amental |
|00000430| 54 65 78 74 45 64 69 74 | 20 0d 23 09 74 6f 6f 6c |TextEdit| .#.tool|
|00000440| 62 6f 78 20 63 61 6c 6c | 73 20 61 6e 64 20 54 65 |box call|s and Te|
|00000450| 78 74 45 64 69 74 20 61 | 75 74 6f 73 63 72 6f 6c |xtEdit a|utoscrol|
|00000460| 6c 20 61 72 65 20 64 65 | 6d 6f 6e 73 74 72 61 74 |l are de|monstrat|
|00000470| 65 64 2e 20 49 74 20 0d | 23 09 61 6c 73 6f 20 73 |ed. It .|#.also s|
|00000480| 68 6f 77 73 20 68 6f 77 | 20 74 6f 20 63 72 65 61 |hows how| to crea|
|00000490| 74 65 20 61 6e 64 20 6d | 61 69 6e 74 61 69 6e 20 |te and m|aintain |
|000004a0| 73 63 72 6f 6c 6c 62 61 | 72 20 63 6f 6e 74 72 6f |scrollba|r contro|
|000004b0| 6c 73 2e 0d 23 0d 23 09 | 49 74 20 64 6f 65 73 20 |ls..#.#.|It does |
|000004c0| 6e 6f 74 20 62 79 20 61 | 6e 79 20 6d 65 61 6e 73 |not by a|ny means|
|000004d0| 20 64 65 6d 6f 6e 73 74 | 72 61 74 65 20 61 6c 6c | demonst|rate all|
|000004e0| 20 74 68 65 20 74 65 63 | 68 6e 69 71 75 65 73 20 | the tec|hniques |
|000004f0| 79 6f 75 20 0d 23 09 6e | 65 65 64 20 66 6f 72 20 |you .#.n|eed for |
|00000500| 61 20 6c 61 72 67 65 20 | 61 70 70 6c 69 63 61 74 |a large |applicat|
|00000510| 69 6f 6e 2e 20 49 6e 20 | 70 61 72 74 69 63 75 6c |ion. In |particul|
|00000520| 61 72 2c 20 53 61 6d 70 | 6c 65 20 64 6f 65 73 20 |ar, Samp|le does |
|00000530| 6e 6f 74 20 0d 23 09 63 | 6f 76 65 72 20 65 78 63 |not .#.c|over exc|
|00000540| 65 70 74 69 6f 6e 20 68 | 61 6e 64 6c 69 6e 67 2c |eption h|andling,|
|00000550| 20 6d 75 6c 74 69 70 6c | 65 20 77 69 6e 64 6f 77 | multipl|e window|
|00000560| 73 2f 64 6f 63 75 6d 65 | 6e 74 73 2c 20 0d 23 09 |s/docume|nts, .#.|
|00000570| 73 6f 70 68 69 73 74 69 | 63 61 74 65 64 20 6d 65 |sophisti|cated me|
|00000580| 6d 6f 72 79 20 6d 61 6e | 61 67 65 6d 65 6e 74 2c |mory man|agement,|
|00000590| 20 70 72 69 6e 74 69 6e | 67 2c 20 6f 72 20 75 6e | printin|g, or un|
|000005a0| 64 6f 2e 20 41 6c 6c 20 | 6f 66 20 0d 23 09 74 68 |do. All |of .#.th|
|000005b0| 65 73 65 20 61 72 65 20 | 76 69 74 61 6c 20 70 61 |ese are |vital pa|
|000005c0| 72 74 73 20 6f 66 20 61 | 20 6e 6f 72 6d 61 6c 20 |rts of a| normal |
|000005d0| 66 75 6c 6c 2d 73 69 7a | 65 64 20 61 70 70 6c 69 |full-siz|ed appli|
|000005e0| 63 61 74 69 6f 6e 2e 0d | 23 0d 23 09 54 68 69 73 |cation..|#.#.This|
|000005f0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 20 69 73 20 | applica|tion is |
|00000600| 61 6e 20 65 78 61 6d 70 | 6c 65 20 6f 66 20 74 68 |an examp|le of th|
|00000610| 65 20 66 6f 72 6d 20 6f | 66 20 61 20 4d 61 63 69 |e form o|f a Maci|
|00000620| 6e 74 6f 73 68 20 0d 23 | 09 61 70 70 6c 69 63 61 |ntosh .#|.applica|
|00000630| 74 69 6f 6e 3b 20 69 74 | 20 69 73 20 4e 4f 54 20 |tion; it| is NOT |
|00000640| 61 20 74 65 6d 70 6c 61 | 74 65 2e 20 49 74 20 69 |a templa|te. It i|
|00000650| 73 20 4e 4f 54 20 69 6e | 74 65 6e 64 65 64 20 74 |s NOT in|tended t|
|00000660| 6f 20 62 65 20 0d 23 09 | 75 73 65 64 20 61 73 20 |o be .#.|used as |
|00000670| 61 20 66 6f 75 6e 64 61 | 74 69 6f 6e 20 66 6f 72 |a founda|tion for|
|00000680| 20 74 68 65 20 6e 65 78 | 74 20 77 6f 72 6c 64 2d | the nex|t world-|
|00000690| 63 6c 61 73 73 2c 20 62 | 65 73 74 2d 73 65 6c 6c |class, b|est-sell|
|000006a0| 69 6e 67 2c 20 0d 23 09 | 36 30 30 4b 20 61 70 70 |ing, .#.|600K app|
|000006b0| 6c 69 63 61 74 69 6f 6e | 2e 20 41 20 73 74 69 63 |lication|. A stic|
|000006c0| 6b 20 66 69 67 75 72 65 | 20 64 72 61 77 69 6e 67 |k figure| drawing|
|000006d0| 20 6f 66 20 74 68 65 20 | 68 75 6d 61 6e 20 62 6f | of the |human bo|
|000006e0| 64 79 20 6d 61 79 20 0d | 23 09 62 65 20 61 20 67 |dy may .|#.be a g|
|000006f0| 6f 6f 64 20 65 78 61 6d | 70 6c 65 20 6f 66 20 74 |ood exam|ple of t|
|00000700| 68 65 20 66 6f 72 6d 20 | 66 6f 72 20 61 20 70 61 |he form |for a pa|
|00000710| 69 6e 74 69 6e 67 2c 20 | 62 75 74 20 74 68 61 74 |inting, |but that|
|00000720| 20 64 6f 65 73 20 6e 6f | 74 20 0d 23 09 6d 65 61 | does no|t .#.mea|
|00000730| 6e 20 69 74 20 73 68 6f | 75 6c 64 20 62 65 20 75 |n it sho|uld be u|
|00000740| 73 65 64 20 61 73 20 74 | 68 65 20 62 61 73 69 73 |sed as t|he basis|
|00000750| 20 66 6f 72 20 74 68 65 | 20 6e 65 78 74 20 4d 6f | for the| next Mo|
|00000760| 6e 61 20 4c 69 73 61 2e | 0d 23 0d 23 09 57 65 20 |na Lisa.|.#.#.We |
|00000770| 72 65 63 6f 6d 6d 65 6e | 64 20 74 68 61 74 20 79 |recommen|d that y|
|00000780| 6f 75 20 72 65 76 69 65 | 77 20 74 68 69 73 20 70 |ou revie|w this p|
|00000790| 72 6f 67 72 61 6d 20 6f | 72 20 53 61 6d 70 6c 65 |rogram o|r Sample|
|000007a0| 20 62 65 66 6f 72 65 20 | 0d 23 09 62 65 67 69 6e | before |.#.begin|
|000007b0| 6e 69 6e 67 20 61 20 6e | 65 77 20 61 70 70 6c 69 |ning a n|ew appli|
|000007c0| 63 61 74 69 6f 6e 2e 20 | 53 61 6d 70 6c 65 20 69 |cation. |Sample i|
|000007d0| 73 20 61 20 73 69 6d 70 | 6c 65 20 61 70 70 2e 20 |s a simp|le app. |
|000007e0| 77 68 69 63 68 20 64 6f | 65 73 6e 55 74 20 0d 23 |which do|esnUt .#|
|000007f0| 09 75 73 65 20 54 65 78 | 74 45 64 69 74 20 6f 72 |.use Tex|tEdit or|
|00000800| 20 74 68 65 20 43 6f 6e | 74 72 6f 6c 20 4d 61 6e | the Con|trol Man|
|00000810| 61 67 65 72 2e 0d 23 0d | 0d 23 0d 23 09 41 73 6d |ager..#.|.#.#.Asm|
|00000820| 43 6c 69 6b 4c 6f 6f 70 | 0d 23 0d 23 09 54 68 69 |ClikLoop|.#.#.Thi|
|00000830| 73 20 72 6f 75 74 69 6e | 65 20 67 65 74 73 20 63 |s routin|e gets c|
|00000840| 61 6c 6c 65 64 20 62 79 | 20 74 68 65 20 54 65 78 |alled by| the Tex|
|00000850| 74 45 64 69 74 20 4d 61 | 6e 61 67 65 72 20 66 72 |tEdit Ma|nager fr|
|00000860| 6f 6d 20 54 45 43 6c 69 | 63 6b 2e 0d 23 09 49 74 |om TECli|ck..#.It|
|00000870| 20 63 61 6c 6c 73 20 74 | 68 65 20 6f 6c 64 2c 20 | calls t|he old, |
|00000880| 64 65 66 61 75 6c 74 20 | 63 6c 69 63 6b 20 6c 6f |default |click lo|
|00000890| 6f 70 20 72 6f 75 74 69 | 6e 65 20 74 68 61 74 20 |op routi|ne that |
|000008a0| 73 63 72 6f 6c 6c 73 20 | 74 68 65 0d 23 09 74 65 |scrolls |the.#.te|
|000008b0| 78 74 2c 20 61 6e 64 20 | 74 68 65 6e 20 63 61 6c |xt, and |then cal|
|000008c0| 6c 73 20 6f 75 72 20 6f | 77 6e 20 50 61 73 63 61 |ls our o|wn Pasca|
|000008d0| 6c 20 72 6f 75 74 69 6e | 65 20 74 68 61 74 20 68 |l routin|e that h|
|000008e0| 61 6e 64 6c 65 73 0d 23 | 09 74 72 61 63 6b 69 6e |andles.#|.trackin|
|000008f0| 67 20 74 68 65 20 73 63 | 72 6f 6c 6c 20 62 61 72 |g the sc|roll bar|
|00000900| 73 20 74 6f 20 66 6f 6c | 6c 6f 77 20 61 6c 6f 6e |s to fol|low alon|
|00000910| 67 2e 20 20 49 74 20 64 | 6f 65 73 6e 27 74 20 62 |g.  It d|oesn't b|
|00000920| 6f 74 68 65 72 0d 23 09 | 77 69 74 68 20 73 61 76 |other.#.|with sav|
|00000930| 69 6e 67 20 72 65 67 69 | 73 74 65 72 73 20 41 30 |ing regi|sters A0|
|00000940| 20 61 6e 64 20 44 30 2c | 20 62 65 63 61 75 73 65 | and D0,| because|
|00000950| 20 74 68 65 79 20 61 72 | 65 20 74 72 61 73 68 65 | they ar|e trashe|
|00000960| 64 0d 23 09 61 6e 79 77 | 61 79 20 62 79 20 54 65 |d.#.anyw|ay by Te|
|00000970| 78 74 45 64 69 74 2e 0d | 23 0d 0d 09 74 65 78 74 |xtEdit..|#...text|
|00000980| 0d 0d 09 67 6c 6f 62 61 | 6c 20 41 73 6d 43 6c 69 |...globa|l AsmCli|
|00000990| 6b 4c 6f 6f 70 0d 41 73 | 6d 43 6c 69 6b 4c 6f 6f |kLoop.As|mClikLoo|
|000009a0| 70 3a 0d 0d 23 09 6d 6f | 76 65 6d 2e 6c 09 25 64 |p:..#.mo|vem.l.%d|
|000009b0| 31 2f 25 64 32 2f 25 61 | 31 2c 2d 28 25 73 70 29 |1/%d2/%a|1,-(%sp)|
|000009c0| 09 09 23 20 64 30 20 61 | 6e 64 20 61 30 20 6e 65 |..# d0 a|nd a0 ne|
|000009d0| 65 64 20 6e 6f 74 20 62 | 65 20 73 61 76 65 64 0d |ed not b|e saved.|
|000009e0| 09 6a 73 72 09 47 65 74 | 4f 6c 64 43 6c 69 6b 4c |.jsr.Get|OldClikL|
|000009f0| 6f 6f 70 09 09 09 23 20 | 67 65 74 20 74 68 65 20 |oop...# |get the |
|00000a00| 6f 6c 64 20 63 6c 69 6b | 6c 6f 6f 70 0d 23 09 6d |old clik|loop.#.m|
|00000a10| 6f 76 65 6d 2e 6c 09 28 | 25 73 70 29 2b 2c 25 64 |ovem.l.(|%sp)+,%d|
|00000a20| 31 2f 25 64 32 2f 25 61 | 31 09 09 23 20 72 65 73 |1/%d2/%a|1..# res|
|00000a30| 74 6f 72 65 20 74 68 65 | 20 77 6f 72 6c 64 20 61 |tore the| world a|
|00000a40| 73 20 69 74 20 77 61 73 | 0d 0d 09 6a 73 72 09 28 |s it was|...jsr.(|
|00000a50| 25 61 30 29 09 09 09 09 | 23 20 61 6e 64 20 65 78 |%a0)....|# and ex|
|00000a60| 65 63 75 74 65 20 6f 6c | 64 20 63 6c 69 6b 6c 6f |ecute ol|d cliklo|
|00000a70| 6f 70 0d 0d 23 09 6d 6f | 76 65 6d 2e 6c 09 25 64 |op..#.mo|vem.l.%d|
|00000a80| 31 2f 25 64 32 2f 25 61 | 31 2c 2d 28 25 73 70 29 |1/%d2/%a|1,-(%sp)|
|00000a90| 09 09 23 20 64 30 20 61 | 6e 64 20 61 30 20 6e 65 |..# d0 a|nd a0 ne|
|00000aa0| 65 64 20 6e 6f 74 20 62 | 65 20 73 61 76 65 64 0d |ed not b|e saved.|
|00000ab0| 09 6a 73 72 09 43 43 6c | 69 6b 4c 6f 6f 70 09 09 |.jsr.CCl|ikLoop..|
|00000ac0| 09 23 20 64 6f 20 6f 75 | 72 20 63 6c 69 6b 6c 6f |.# do ou|r cliklo|
|00000ad0| 6f 70 0d 23 09 6d 6f 76 | 65 6d 2e 6c 09 28 25 73 |op.#.mov|em.l.(%s|
|00000ae0| 70 29 2b 2c 25 64 31 2f | 25 64 32 2f 25 61 31 09 |p)+,%d1/|%d2/%a1.|
|00000af0| 09 23 20 72 65 73 74 6f | 72 65 20 74 68 65 20 77 |.# resto|re the w|
|00000b00| 6f 72 6c 64 20 61 73 20 | 69 74 20 77 61 73 0d 09 |orld as |it was..|
|00000b10| 6d 6f 76 65 2e 6c 09 26 | 31 2c 25 64 30 09 09 09 |move.l.&|1,%d0...|
|00000b20| 23 20 63 6c 65 61 72 20 | 74 68 65 20 7a 65 72 6f |# clear |the zero|
|00000b30| 20 66 6c 61 67 20 73 6f | 20 74 65 78 74 65 64 69 | flag so| textedi|
|00000b40| 74 20 6b 65 65 70 73 20 | 67 6f 69 6e 67 0d 09 72 |t keeps |going..r|
|00000b50| 74 73 0d 0d 0d 23 20 41 | 2f 55 58 20 43 20 64 6f |ts...# A|/UX C do|
|00000b60| 65 73 6e 27 74 20 6e 6f | 77 20 68 6f 77 20 74 6f |esn't no|w how to|
|00000b70| 20 67 65 6e 65 72 61 74 | 65 20 61 20 50 61 73 63 | generat|e a Pasc|
|00000b80| 61 6c 20 63 61 6c 6c 69 | 6e 67 20 73 65 71 75 65 |al calli|ng seque|
|00000b90| 6e 63 65 20 66 6f 72 20 | 61 20 52 4f 4d 0d 23 20 |nce for |a ROM.# |
|00000ba0| 63 61 6c 6c 2d 62 61 63 | 6b 20 72 6f 75 74 69 6e |call-bac|k routin|
|00000bb0| 65 2e 20 20 53 6f 20 74 | 68 69 73 20 72 6f 75 74 |e.  So t|his rout|
|00000bc0| 69 6e 65 20 74 61 6b 65 | 73 20 74 68 65 20 70 6c |ine take|s the pl|
|00000bd0| 61 63 65 20 6f 66 20 74 | 68 65 20 56 41 63 74 69 |ace of t|he VActi|
|00000be0| 6f 6e 50 72 6f 63 0d 23 | 20 64 65 63 6c 61 72 65 |onProc.#| declare|
|00000bf0| 64 20 69 6e 20 74 68 65 | 20 54 45 53 61 6d 70 6c |d in the| TESampl|
|00000c00| 65 2e 63 20 73 6f 75 72 | 63 65 2e 20 20 54 68 69 |e.c sour|ce.  Thi|
|00000c10| 73 20 63 6f 64 65 2c 20 | 69 6e 20 74 75 72 6e 2c |s code, |in turn,|
|00000c20| 20 74 72 61 6e 73 6c 61 | 74 65 73 20 74 68 65 0d | transla|tes the.|
|00000c30| 23 20 50 61 73 63 61 6c | 20 63 61 6c 6c 69 6e 67 |# Pascal| calling|
|00000c40| 20 73 65 71 75 65 6e 63 | 65 20 69 6e 74 6f 20 74 | sequenc|e into t|
|00000c50| 68 65 20 43 20 63 61 6c | 6c 69 6e 67 20 73 65 71 |he C cal|ling seq|
|00000c60| 75 65 6e 63 65 20 61 6e | 64 20 63 61 6c 6c 73 20 |uence an|d calls |
|00000c70| 74 68 65 20 0d 23 20 56 | 41 63 74 69 6f 6e 50 72 |the .# V|ActionPr|
|00000c80| 6f 63 20 69 6e 20 54 45 | 53 61 6d 70 6c 65 2e 63 |oc in TE|Sample.c|
|00000c90| 2c 20 6e 6f 77 20 63 61 | 6c 6c 65 64 20 43 56 41 |, now ca|lled CVA|
|00000ca0| 63 74 69 6f 6e 50 72 6f | 63 0d 23 20 76 6f 69 64 |ctionPro|c.# void|
|00000cb0| 09 09 56 41 63 74 69 6f | 6e 50 72 6f 63 20 28 74 |..VActio|nProc (t|
|00000cc0| 68 65 43 6f 6e 74 72 6f | 6c 2c 70 61 72 74 43 6f |heContro|l,partCo|
|00000cd0| 64 65 29 0d 23 20 43 6f | 6e 74 72 6f 6c 48 61 6e |de).# Co|ntrolHan|
|00000ce0| 64 6c 65 09 74 68 65 43 | 6f 6e 74 72 6f 6c 3b 0d |dle.theC|ontrol;.|
|00000cf0| 23 20 73 68 6f 72 74 09 | 09 70 61 72 74 43 6f 64 |# short.|.partCod|
|00000d00| 65 3b 0d 0d 09 67 6c 6f | 62 61 6c 09 56 41 63 74 |e;...glo|bal.VAct|
|00000d10| 69 6f 6e 50 72 6f 63 0d | 56 41 63 74 69 6f 6e 50 |ionProc.|VActionP|
|00000d20| 72 6f 63 3a 0d 09 6d 6f | 76 65 2e 77 09 34 28 25 |roc:..mo|ve.w.4(%|
|00000d30| 61 37 29 2c 2d 28 25 61 | 37 29 0d 09 63 6c 72 2e |a7),-(%a|7)..clr.|
|00000d40| 77 09 2d 28 25 61 37 29 | 0d 09 6d 6f 76 65 2e 6c |w.-(%a7)|..move.l|
|00000d50| 09 31 30 28 25 61 37 29 | 2c 2d 28 25 61 37 29 0d |.10(%a7)|,-(%a7).|
|00000d60| 09 6a 73 72 09 43 56 41 | 63 74 69 6f 6e 50 72 6f |.jsr.CVA|ctionPro|
|00000d70| 63 09 09 23 20 43 61 6c | 6c 20 74 68 65 20 43 20 |c..# Cal|l the C |
|00000d80| 76 65 72 73 69 6f 6e 0d | 09 6d 6f 76 65 2e 6c 09 |version.|.move.l.|
|00000d90| 38 28 25 61 37 29 2c 25 | 61 31 0d 09 61 64 64 2e |8(%a7),%|a1..add.|
|00000da0| 6c 09 26 31 38 2c 25 61 | 37 0d 09 6a 6d 70 09 28 |l.&18,%a|7..jmp.(|
|00000db0| 25 61 31 29 0d 0d 23 20 | 41 2f 55 58 20 43 20 64 |%a1)..# |A/UX C d|
|00000dc0| 6f 65 73 6e 27 74 20 6e | 6f 77 20 68 6f 77 20 74 |oesn't n|ow how t|
|00000dd0| 6f 20 67 65 6e 65 72 61 | 74 65 20 61 20 50 61 73 |o genera|te a Pas|
|00000de0| 63 61 6c 20 63 61 6c 6c | 69 6e 67 20 73 65 71 75 |cal call|ing sequ|
|00000df0| 65 6e 63 65 20 66 6f 72 | 20 61 20 52 4f 4d 0d 23 |ence for| a ROM.#|
|00000e00| 20 63 61 6c 6c 2d 62 61 | 63 6b 20 72 6f 75 74 69 | call-ba|ck routi|
|00000e10| 6e 65 2e 20 20 53 6f 20 | 74 68 69 73 20 72 6f 75 |ne.  So |this rou|
|00000e20| 74 69 6e 65 20 74 61 6b | 65 73 20 74 68 65 20 70 |tine tak|es the p|
|00000e30| 6c 61 63 65 20 6f 66 20 | 74 68 65 20 48 41 63 74 |lace of |the HAct|
|00000e40| 69 6f 6e 50 72 6f 63 0d | 23 20 64 65 63 6c 61 72 |ionProc.|# declar|
|00000e50| 65 64 20 69 6e 20 74 68 | 65 20 54 45 53 61 6d 70 |ed in th|e TESamp|
|00000e60| 6c 65 2e 63 20 73 6f 75 | 72 63 65 2e 20 20 54 68 |le.c sou|rce.  Th|
|00000e70| 69 73 20 63 6f 64 65 2c | 20 69 6e 20 74 75 72 6e |is code,| in turn|
|00000e80| 2c 20 74 72 61 6e 73 6c | 61 74 65 73 20 74 68 65 |, transl|ates the|
|00000e90| 0d 23 20 50 61 73 63 61 | 6c 20 63 61 6c 6c 69 6e |.# Pasca|l callin|
|00000ea0| 67 20 73 65 71 75 65 6e | 63 65 20 69 6e 74 6f 20 |g sequen|ce into |
|00000eb0| 74 68 65 20 43 20 63 61 | 6c 6c 69 6e 67 20 73 65 |the C ca|lling se|
|00000ec0| 71 75 65 6e 63 65 20 61 | 6e 64 20 63 61 6c 6c 73 |quence a|nd calls|
|00000ed0| 20 74 68 65 20 0d 23 20 | 48 41 63 74 69 6f 6e 50 | the .# |HActionP|
|00000ee0| 72 6f 63 20 69 6e 20 54 | 45 53 61 6d 70 6c 65 2e |roc in T|ESample.|
|00000ef0| 63 2c 20 6e 6f 77 20 63 | 61 6c 6c 65 64 20 43 48 |c, now c|alled CH|
|00000f00| 41 63 74 69 6f 6e 50 72 | 6f 63 0d 23 20 76 6f 69 |ActionPr|oc.# voi|
|00000f10| 64 09 09 48 41 63 74 69 | 6f 6e 50 72 6f 63 20 28 |d..HActi|onProc (|
|00000f20| 74 68 65 43 6f 6e 74 72 | 6f 6c 2c 70 61 72 74 43 |theContr|ol,partC|
|00000f30| 6f 64 65 29 0d 23 20 43 | 6f 6e 74 72 6f 6c 48 61 |ode).# C|ontrolHa|
|00000f40| 6e 64 6c 65 09 74 68 65 | 43 6f 6e 74 72 6f 6c 3b |ndle.the|Control;|
|00000f50| 0d 23 20 73 68 6f 72 74 | 09 09 70 61 72 74 43 6f |.# short|..partCo|
|00000f60| 64 65 3b 0d 0d 09 67 6c | 6f 62 61 6c 09 48 41 63 |de;...gl|obal.HAc|
|00000f70| 74 69 6f 6e 50 72 6f 63 | 0d 48 41 63 74 69 6f 6e |tionProc|.HAction|
|00000f80| 50 72 6f 63 3a 0d 09 6d | 6f 76 65 2e 77 09 34 28 |Proc:..m|ove.w.4(|
|00000f90| 25 61 37 29 2c 2d 28 25 | 61 37 29 0d 09 63 6c 72 |%a7),-(%|a7)..clr|
|00000fa0| 2e 77 09 2d 28 25 61 37 | 29 0d 09 6d 6f 76 65 2e |.w.-(%a7|)..move.|
|00000fb0| 6c 09 31 30 28 25 61 37 | 29 2c 2d 28 25 61 37 29 |l.10(%a7|),-(%a7)|
|00000fc0| 0d 09 6a 73 72 09 43 48 | 41 63 74 69 6f 6e 50 72 |..jsr.CH|ActionPr|
|00000fd0| 6f 63 09 09 23 20 43 61 | 6c 6c 20 74 68 65 20 43 |oc..# Ca|ll the C|
|00000fe0| 20 76 65 72 73 69 6f 6e | 0d 09 6d 6f 76 65 2e 6c | version|..move.l|
|00000ff0| 09 38 28 25 61 37 29 2c | 25 61 31 0d 09 61 64 64 |.8(%a7),|%a1..add|
|00001000| 2e 6c 09 26 31 38 2c 25 | 61 37 0d 09 6a 6d 70 09 |.l.&18,%|a7..jmp.|
|00001010| 28 25 61 31 29 0d 0d 00 | 00 00 00 00 00 00 00 00 |(%a1)...|........|
|00001020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001080| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001090| 6f 73 68 20 44 65 76 65 | 6c 6f 70 65 72 20 54 65 |osh Deve|loper Te|
|000010a0| 63 68 6e 69 63 61 6c 20 | 53 75 70 70 6f 72 74 0d |chnical |Support.|
|000010b0| 0e 54 45 53 61 6d 70 6c | 65 47 6c 75 65 2e 73 47 |.TESampl|eGlue.sG|
|000010c0| 02 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 a0 a1 88 b8 00 00 | 00 00 00 00 01 7e 2d 09 |........|.....~-.|
|00001100| 41 73 73 65 6d 62 6c 65 | 72 20 53 6f 75 72 63 65 |Assemble|r Source|
|00001110| 0d 23 0d 23 09 43 6f 70 | 79 72 69 67 68 74 20 29 |.#.#.Cop|yright )|
|00001120| 20 31 39 38 38 20 41 70 | 70 6c 65 20 43 6f 6d 70 | 1988 Ap|ple Comp|
|00001130| 75 74 65 72 2c 20 49 6e | 63 2e 0d 23 09 41 6c 6c |uter, In|c..#.All|
|00001140| 20 72 69 67 68 74 73 20 | 72 65 73 65 72 76 65 64 | rights |reserved|
|00001150| 2e 0d 23 0d 23 09 56 65 | 72 73 69 6f 6e 73 3a 09 |..#.#.Ve|rsions:.|
|00001160| 31 2e 30 09 09 09 09 09 | 30 38 2f 38 38 0d 23 09 |1.0.....|08/88.#.|
|00001170| 09 09 09 31 2e 30 31 09 | 09 09 09 31 31 2f 38 38 |...1.01.|...11/88|
|00001180| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 75 6c 74 |...H..Mo|naco.ult|
|00001190| 69 46 69 6e 64 65 72 2d | 41 77 61 72 65 20 54 65 |iFinder-|Aware Te|
|000011a0| 78 74 45 64 69 74 00 06 | 00 04 00 27 00 00 01 df |xtEdit..|...'....|
|000011b0| 02 30 00 3c 00 24 01 dd | 02 3d a0 9f 14 18 00 00 |.0.<.$..|.=......|
|000011c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000011d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 15 15 84 |...L...L|...2....|
|000011e0| 07 5a 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.Z.....2|..MPSR..|
|000011f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+